---
title: "Traffic Report"
---

Page 1
=====================================  

Row
-------------------------------------

### Last Update: `r Sys.Date()`

```{r version_value_box}
# valueBox to display the date of the latest update
# title indicating the month that is considered
last_observed_month <- df$date %>% max() %>% lubridate::month(label  = TRUE,
                                                             abbr   = FALSE,
                                                             locale = "en_US.UTF-8")
lastUpdateValue <- paste(last_observed_month,
                         df$date %>% max() %>% lubridate::year(),
                         sep = " ")

valueBox(value = lastUpdateValue,
         color = grey,
         icon = "glyphicon-calendar")
```

Row
-------------------------------------
    
### Chart 1
    
```{r}
```

   
### Chart 2

```{r}
```   
 
### Chart 3
    
```{r}
```

Page 2 {data-orientation=rows}
=====================================     
   
Row
-------------------------------------

### Chart 1

```{r}
```

Row
-------------------------------------
   
### Chart 2

```{r overallVisits, echo = FALSE}
valueBoxes(df, "Lights", "visits")
```  
    
### Chart 3

```{r}
```